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Pro Wy n 

There have been inquiries about the option of posting invoices without 
having to return to the Main Menu. The only purpose behind this would be 
to save time and not have to load those large programs back in. If these 
changes are done, then a OOMPIBTE posting oust be done since the selection 
of invoices is done from the ^tein Menu and is bypassed. 


Solu tion 

Q0It«3 DIE^ECTLY TO INVOICE POSTING FROM INVOICE MAINTENANCE: 

To add the option of running the POST INVOICES function from the INVOICE 
MAINTENANCE function without returning to the MAIN MENU first, the 
following changes can be made. Note that you oust request a Conplete 
posting since the selection process is done from the main menu and will be 
bypassed. 


The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LOAD''APINVCE/BAS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 
Old Line: 5j32 FRINT@(23,2J0I),EL$"> ENTER A SEIBCTION :";:ET>1:G0SUBU3: 
IFCF^lTHEN85j3ELSEIFCF<>ie)THEN502 

New Line: 502 FRINT@(23,20),EL$"> ENTER A SEIECTION ::FIr=l:GOSUBl0: 
IFCF^l®CF^2THEN850El^IFXy<>iZfTHEN502 
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Old Line; 850 HlINr@(23,20 ),EIi$;R$''RETURNING TO MAIN iyCNU"N$;;CLOSE: 

OPEN"O",l,VP$;PRINT#l,I;rr;IN;ID;IS;IH;Vr;VN;VD;EP;TD;R0;Rl;R2;R3;R4;R5; 
R6;R7;R8;PC;LC;SrR$ (CP# )+''E!0'' 

New Line: 850 CLOSE:OPEN"0",l,VP$;IRINr#l,I;rr;IN;ID;IS;IH;VT;VN;YD;EP; 
TD;JE^;Rl;R2;R3;R4;R5;R6;R7;R8;PC;n:;SrR$(CP#)+''E!0'' 

Old Line: 860 PORW9=lTOVN-l;ERINr#l,P(W9,0);P(W9,l) :NEXr:PC»W9=lTOIN-l; 

PRINr#l,I(W9) :IEXr:(3iOSEl;RUN''APS/BAS 
New Line; 860 FORW9=lTOVN-l:ERINr#l,P(W9,0);P(W9,l) :NEXr:PC»W9=lT0IN-l; 
PRINr#l,I(W9) :NEXr:CLOSE 

Old Line; 1024 PRINr:PRINrTAB(10);FNRV$("D'’) ;''EE£TE";TAB(25);ENRV$(''E") ; 
"DIT" ;TAB( 40 ) ;FPNRV$ ("N"); "EXT" 

New Line; 1024 PRINr;PRINrrAB(10);FNRV$("D") ;"EEETE";TAB(25) ;FNRV$("E"); 
"DIT" ;TAB( 40) ;FNRV$ ("N"); "EXT" ;TAB(55) ;FNRV$("F2")" POST I NVOICE S" 

AMDmONS (Type the line followed by an <ENrER>) 

870 IFCF=2TEffiNRUN"APPOSr/BAS"ELa»UN"APS/BAS" 

4. Type SAVE"APINVCE/BAS" and press <ENrER>. 

5. At TRSDOS Ready, make a backup copy of the diskette. 









